home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / WEEKDAY.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-11-30  |  586 b   |  32 lines
  1. '
  2. 'Copyright (c) 1988 Marcel Madonna
  3. '
  4. '
  5. ' Sample program using Weekday.Asm
  6. '
  7.     DIM DayofWeek$(6)
  8.     DayofWeek$(0) = "Sunday"
  9.     DayofWeek$(1) = "Monday"
  10.     DayofWeek$(2) = "Tuesday"
  11.     DayofWeek$(3) = "Wednesday"
  12.     DayofWeek$(4) = "Thursday"
  13.     DayofWeek$(5) = "Friday"
  14.     DayofWeek$(6) = "Saturday"
  15.  
  16.     Wrk.Date$ = ""
  17.     CALL Weekday(Wrk.Date$, Rc%)
  18.     PRINT "Today is " + DayofWeek$(Rc%)
  19.  
  20.     Wrk.Date$ = "01/01/88"
  21.     CALL Weekday(Wrk.Date$, Rc%)
  22.  
  23.     IF Rc% = -1 THEN
  24.         PRINT Wrk.Date$ + " is not a valid date"
  25.     ELSE
  26.         PRINT Wrk.Date$ + " is " + DayofWeek$(Rc%)
  27.     END IF
  28.  
  29.  
  30.     END
  31.  
  32.